* eieio-custom.el (eieio-object-value-get): Add missing increment

Fixes: debbugs:20467

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index f3ec1b6c9812d65862bd0a5cd2697041d6213d14..8e19544c65e547e56af2f4470fd00a4dd8978396 100644 (file)
--- a/lisp/emacs-lisp/eieio-custom.el
+++ b/lisp/emacs-lisp/eieio-custom.el
@@ -298,6 +298,13 @@ Optional argument IGNORE is an extraneous parameter."
       (let* ((slot (aref slots i))
              (props (cl--slot-descriptor-props slot))
              (cust (alist-get :custom props)))
+       ;;
+       ;; Shouldn't i be incremented unconditionnaly ? Or
+       ;; better shouldn't we simply mapc on the slots vector
+       ;; avoiding use of this integer variable ? PLN Sat May
+       ;; 2 07:35:45 2015
+       ;;
+       (setq i (+ i 1))
         (if (and cust
                  (or eieio-custom-ignore-eieio-co
                      (not master-group)